home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / fast278j.lzh / LABELS.F < prev    next >
Text File  |  1991-10-23  |  1KB  |  77 lines
  1. cls
  2. copies=1
  3. serial=0
  4.  
  5. proc abort print:loctocur:stop
  6.  
  7. proc output(m)
  8.     {
  9.     repeat copies
  10.     {
  11.     om=m
  12.     lprint
  13.     while peekb om lprint chr peekb om;:om++
  14.     if serial then lprint "Serial No. ";serial else lprint
  15.     lprint "(c) Peter Campbell Software"
  16.     lprint
  17.     if serial then serial++
  18.     }
  19.     }
  20.  
  21. start:
  22. locate 3,0
  23. print "Peter Campbell Software Label Printing: v1.0"
  24. repeat 44 print chr '═';
  25. print
  26. print "S - Serial Number: ";serial;"    "
  27. print "C - Copies: ";copies;"     "
  28. print
  29. print "1 - Free Flow Database"
  30. print "2 - FASTBASE - SALES"
  31. print "3 - FASTBASE - 4GL"
  32. print "4 - FAST Registered"
  33. print "5 - FAST PD"
  34.  
  35. cursor 14,0
  36. wait for keypressed
  37. k=lcase key
  38.  
  39. if k=27 then abort
  40. if k='s' then cursor 5,19:serial=input
  41. if k='c' then cursor 6,12:copies=input:if copies=0 then copies=1
  42.  
  43. if k='1' then output(lab_ffd)
  44. if k='2' then output(lab_fbd)
  45. if k='3' then output(lab_fb)
  46. if k='4' then output(lab_freg)
  47. if k='5' then output(lab_fun)
  48.  
  49. goto start
  50.  
  51. ;each area takes 2 lines.
  52.  
  53. lab_ffd:
  54. datab 'Free Flow Database',13,10
  55. datab 'Start: type readme',13,10
  56. datab 0
  57.  
  58. lab_fbd:
  59. datab 'FASTBASE - SALES',13,10
  60. datab '4GL Applications Developer.',13,10
  61. datab 0
  62.  
  63. lab_fb:
  64. datab 14,'FASTBASE',13,10
  65. datab '4GL Applications Developer.',13,10
  66. datab 0
  67.  
  68. lab_freg:
  69. datab 'FAST',13,10
  70. datab 'Registered Version',13,10
  71. datab 0
  72.  
  73. lab_fun:
  74. datab 'FAST',13,10
  75. datab 'Public Domain',13,10
  76. datab 0
  77.